proc show_progress {} {
	set w [top_win "Daidze Progress"]
	pack [ttk::progressbar $w.p -mode indeterminate -length 200] -padx 10 -pady 10
	return $w
}

proc start_progress {win} {
	focus -force $win
	raise $win
	$win.p start
}

proc stop_progress {win} {
	focus -force $win
	raise $win
	$win.p stop
	destroy $win
}
# proc show_progress {} {
	# set w [top_win "Daidze Progress"]
	# canvas $w.c -width 200 -height 10 -bd 1 -relief groove -highlightt 0
	# $w.c create rectangle 0 0 0 10 -tags bar -fill navy
	# pack $w.c -padx 10 -pady 10
# }

# proc run {win percent} {
	# focus -force $win
	# raise $win
	# $win coords bar 0 0 [expr {int($percent * 2)}] 20
# }